Einträge markieren/ entmarkieren

An diesem kleinen Report können Sie nachvollziehen, wie Sie in einer Liste alle Einträge markieren bzw. alle Markierungen wieder entfernen können.

In einer Liste mit Einträgen zum Ankreuzen möchte man vielleicht dem Anwender die Möglichkeit geben, alle Einträge zu markieren, bzw. alle Markierungen wieder zu entfernen.

Das Auslesen der markierten Punkte muss dann auch noch erfolgen: Eingabe in Listen

 Das Programm

REPORT zzenno14 .

DATA:
  linex TYPE syindex,
  sel   TYPE c,
  bezei TYPE sptxt.

START-OF-SELECTION.
*** GUI-Status setzen
*** SALL = Alle Markierungen setzen
*** DALL = Alle Markierungen löschen
  SET PF-STATUS ‘LIST’.
*** Daten lesen
  SELECT sptxt FROM t002t INTO bezei WHERE spras = sy-langu.
*** …und ausgeben
    WRITE: / sel AS CHECKBOX INPUT ON,
             bezei.
  ENDSELECT.

AT USER-COMMAND.
  CASE sy-ucomm.
*** Abfrage
    WHEN ‘SALL’ OR ‘DALL’.
      DO.
        linex = sy-index.
*** Zeile lesen
        READ LINE linex FIELD VALUE sel bezei.
        IF sy-subrc > 0. EXIT. ENDIF.
        CASE sy-ucomm.
          WHEN ‘SALL’.
*** Marker setzen
            MODIFY LINE linex FIELD VALUE sel FROM ‘X’.
          WHEN ‘DALL’.
*** Marker löschen
            MODIFY LINE linex FIELD VALUE sel FROM ‘ ‘.
        ENDCASE.
      ENDDO.
  ENDCASE.

• Über
• Letzte Artikel

Enno Wulff

SAP Berater & Entwickler bei Inwerken AG

Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!

Letzte Artikel von Enno Wulff (Alle anzeigen)

• 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
• 5. December: ABAPConf - 5. Dezember 2024
• 4. December: Only a lazy developer is a good developer - 4. Dezember 2024